home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)tk.d64 / DISP.ASM < prev    next >
Assembly Source File  |  2009-01-18  |  574b  |  15 lines
  1. ;subroutine display
  2.         xdef display                    ;definition for external use
  3.         xref putchar_                   ;reference to system routine
  4.  
  5. display loop                            ;loop
  6.            ldb,x+                       ;   load character into B
  7.            quif eq                      ;   quit if null byte
  8.            pshs x                       ;   save X
  9.            jsr putchar_                 ;   display character
  10.            puls x                       ;   restore x
  11.         endloop                         ;endloop
  12.         rts
  13.         end
  14.  
  15.